function [y]=valoreal(x,RIN)
% Retorna o valor normalizado para o seu valor real 
%
% function [y]=valoreal(x,RIN)
%
%    x  : valor normalizado ou vetor de valores.
%    RIN: Vetor contendo o limite inferior e o superior 
%         para a variavel original
%    y  : valor original retornado

% Marcelo Barros - 04/08/1997


if sum(sign(RIN))==0  % sinais diferente
	for i=1:length(x)
		if sign(x(i))==-1
			y(i)=abs(x(i))*RIN(1);
		else
			y(i)=x(i)*RIN(2);
		end;
	end;
else
	y=x.*(RIN(2)-RIN(1));
end;

